Top 10k strings from Bridge Player (1983)(CP Software)[a2].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
4 w=on+(j$(o,2
3 k$(b)=("P"
3 k$(b)=("2"
3 k$(b)="P":
3 j$(o,on)=e$(on)
3 e$(w-on)="
3 e$(on)<"5"
3 ;" ":
3 ,y+on;e$;" ";e$;
2 y$(fo,fo):
2 y$(a)="100"+
2 x+w,y+v;e$:
2 x+w,y+fo;e$:
2 w=e(on)*e(2
2 on;"Hand no.";h;
2 k$(b,on)=("6"
2 k$(b,on)="R"
2 k$(b,on)="D"
2 k$(b)=("3"
2 k$(b)="4"+s$(t):
2 k$(b)="3"+s$(t):
2 j$(or)<e$(2
2 j$(op)>v$(on,2
2 j$(op)>j$(ol)
2 j$(o,w)>v$(2
2 j$(o)>j$(ol)
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 i$(on)="1"
2 g$="1234":
2 g$(w+on)=e$
2 g$(w)=g$(w+on):
2 e(w+on)=u:
2 e(w)=e(w+on):
2 e(w)<e(w+on)
2 e$(t)*(t<5
2 d(k)=d(k)+3
2 c(k)=c(k)+
2 bridge2.5
2 a(l)=a(l)-on:
2 ,y;e$;" ";e$;
2 ,y;e$;" ";e$;
2 ,y+on;e$;" ";e$:
2 ,on)=s$(t)
2 )>j$(ol,u)
2 )=j$(ol,on)+j$(op,on)
2 )+j$(op,on)
2 ))+(j$(o,3
2 (j$(o,on)=e$(on)
2 R.Wheen 1984
1 ze;"Slam bid and made":
1 ze;" holding ";"(enter
1 ze;" Please wait while the computer assesses and analyses the hands.":
1 ze;" ";(b$(k,
1 ze;" This is your hand as
1 ze,f,f,f,f,f,f,f,f,f,f,f,h+on,p$
1 ze)+("E/W"
1 z$=a$(v-on
1 y;" trick";("s"
1 y$(x)="0003":
1 y$(v,fo)<"3"
1 y$(u)="0003":
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzzxxxxxzzxxxxxxxxxxxxxxxxxxxxzzzzzzxxxzzzzxxxxxxxxxxxxxxxxxxxzzzzzzxxzzzzzzxxxxxxxxxxxxxxxxxxxzzzzxxxxzzzzzxxxxxxxxxxxxxxxxxxxzzzzxxxxzzzzxxxxxxxxxxxxxxxxxxxxxzzxxxxxxzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzxxxxxxxxzxxxxxxxxzzzxxxxxxxzzzzzzxxxxxxxzxxxxxxxzxxxzxxxxxxzzzzzzxxxxxxxzxxxxxxxzxxxxxxxxxxzzzzzzxxxxxxxzxxxxxxxzxxzzxxxxxxzzzzzzxxxxxxxzxxxxxxxzxxxzxxxxxxzzzzzzxxxxxxxzxxxxxxxzxxxzxxxxxxxzzzzxxxxxxxxzxxxxxxxxzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888w
1 x-on,v;j$(m,z);
1 x-on)+z$(x+on
1 x+v,y;e$;" ";e$:
1 x+on,y;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y;e$;e$;
1 x+fo,y+on;e$;" ";e$:
1 x$(on)="2"
1 x$(on)<"4"
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 vfff)+(j>19
1 v-on)+c$(b(w),v+on
1 v)=a$(w-on
1 v$(v,on)>"1"
1 v$(v,on)=s$(u):
1 v$(v,on)=s$(u)
1 v$(v,on)=s$(n):
1 v$(v,on)=r$(u+5
1 v$(v,on)=r$(u)
1 v$(v,on)=q$(x+5
1 v$(v,on)=q$(x)
1 v$(v,on)="t"
1 v$(v)=s$(n)
1 v$(v)=r$(t):
1 v$(v)=r$(t)+j$(m,w):
1 v$(v)=r$(n):
1 v$(v)=r$(n)+j$(o,w):
1 v$(v)=r$(c):
1 v$(v)="ne"
1 v$(v)="NE"
1 v$(v)=" "
1 v$(on,on))
1 u=e(w+on):
1 st,ze;" Tricks "'" ****** "'"N/S E/W"'" ";g;
1 st,y,fo,on,h,yy,fs,gg,ze,o$,p$,n$,q$,r$,s$,t$,u$,a$:
1 st)+(s$(p)
1 s333)+s$(p):
1 s333)+("3"
1 s$(t))+(x<69
1 p=on)+s$(n):
1 p=(tv*r+10
1 p$=("Vul:none"
1 opt*j*v=on
1 op=fo*k-fo+or-(or>fo):
1 on;ze,on-aa
1 on;"To make your choice press 1 or 2"
1 on;"Press any letter to continue":
1 on;"PRESS A KEY";
1 on;"Dealer:";o$(d)'
1 on;"2 or 4?"
1 o()=o+fo-st*(o>12
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 l=g(on)+g(3
1 l<ze);" win `";
1 l(t)-(t>fo):
1 k=on);" ";
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1=3
1 k$(b-on,on)
1 k$(b,x)>"`"
1 k$(b,x)-32
1 k$(b,on)=("P"
1 k$(b,on)=("4"
1 k$(b,on)=("3"
1 k$(b,on)="P"
1 k$(b,on)="7":
1 k$(b,on)="6":
1 k$(b,on)-on)+10
1 k$(b,on)+k$(b-on,on)+k$(b-2
1 k$(b)=f$(1
1 k$(b)=("3"+s$(p)
1 k$(b)="Rdbl":
1 k$(b)="Pass":
1 k$(b)="Dble":
1 k$(b)="D":
1 k$(b)="6"+s$(fo-k1):
1 k$(b)="5"+s$(t):
1 k$(b)="5"+s$(fo-(j-
1 k$(b)="5"+h$(2
1 k$(b)="3"+s$(p):
1 k$(b)="2"+s$(t):
1 k$(b)="2"+s$(p):
1 k$(b)="1"+s$(p+3
1 k$(b)="1"+s$(p):
1 k$(b)="1"+s$(n):
1 k$(b)=" "
1 k$(b)-on):
1 k$(b)+on):
1 j$(v,on)="
1 j$(v+st)=j$(v):
1 j$(v)=j$(v+st):
1 j$(u+fo)=e$:
1 j$(u)=j$(u+fo):
1 j$(q,on)="
1 j$(or,on)>e$(fo)
1 j$(op,on)>e$(3
1 j$(op,on)>"
1 j$(op,on)=e$(on))
1 j$(op)>j$(o)))
1 j$(op)>j$(o)
1 j$(op)<v$(on,2
1 j$(op)<j$(ol,2
1 j$(op)<j$(ol)))
1 j$(op)<j$(ol))
1 j$(op)<e$(on))
1 j$(ol,u)=" "
1 j$(ol)<e$(2
1 j$(o,w)>v$(on,2
1 j$(o,w)>j$(ol,u)
1 j$(o,on)>j$(or,2
1 j$(o,on)>e$(ao-(ao>on
1 j$(o,on)=e$(2
1 j$(o,on)<e$(2
1 j$(o)>j$(or)
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(o)<e$(6
1 j$(o)<e$(3
1 j$(m,w)>v$(v-on,2
1 j$(m,w)>j$(ol-n+t,on)
1 j$(l,w)=v$(v,2
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$=i$+e$(w)
1 h$=h$+e$(w):
1 h$+(k$(b,2
1 h$(on)="3"
1 h$(on)="2"):
1 h$(on)<"4"
1 gg)+("Game all"
1 g(w+x);g(w+x)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=g$+e$(w):
1 g$=("1342"
1 fo;"Hand ";h'
1 fo,ze;"Contract"'r;
1 ffff*(u=10
1 f,g,i,j,l,aa,k1,k2,ss,zz,fs,rp,h,n$:
1 f(w);v$(w):
1 f(v);v$(v,on):
1 f(v);v$(v)
1 f$=f$+e$(w):
1 f$=f$(on)+u$(t)+("x"
1 f$-on)="x"
1 f$-on)="X")):
1 f$+on+(j>15.4
1 f$)="X"))+("x"
1 f$(on)<"3"
1 f$(on)<"2"
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j-(2
1 e=d(k)+(13
1 e$="-----":
1 e$(y-on)=z$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y+5
1 e$(x)=q$(y)
1 e$(w-on)=z$
1 e$(w)>e$(w-on)
1 e$(w)=e$(w-on):
1 e$(t)>"0"))
1 e$(t)<"3")+"4"+s$(t):
1 e$(on)>"3")+"2
1 e$(on)=o$(k+fo)
1 e$(on)=o$(k)
1 e$(on)=e$(fo)
1 e$(a)=z$(x)
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(v+on)=w:
1 d(v)=d(v+on):
1 d(k)=d(k)+c(k):
1 d(k)=c(k)+d(k):
1 d(k)<st)+("3"
1 d$(x)=y$(x):
1 d$(v+on)=e$:
1 d$(v)=d$(v+on):
1 c,d;v$(v,2
1 c+x,b;s$(x);" ";:
1 c(v+on)=w:
1 c(v)=c(v+on):
1 c(k))>fo*(8
1 c$(b(w))=c$(b(w),
1 bridge2
1 b(x)=b(x)-a(
1 as T or 1) "
1 a(v+st)=a(v):
1 a(v)=a(v+st):
1 a(u+fo)=w:
1 a(u)=a(u+fo):
1 a(or-n+t-(t=5
1 a(op-n+t))
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(op)+a(or)
1 a(ol-n+t-(t=5
1 a(o)=b(u):
1 Created with Ramsoft MakeTZX
1 ;l$;l$;l$;l$;l$;l$:
1 ;l$;"The program takes 5 mins to load";
1 ;k$(v,on);"N"
1 ;j$(l,w);" ";:
1 ;("exactly"
1 ;"you wish to select."'''
1 ;"without penalty ";
1 ;"with ";y;" overtrick";("s"
1 ;"i.e. decide which cards";
1 ;"erased. To restart"'
1 ;"each player is to have."'''
1 ;"computer shuffles, deals"''
1 ;"and sorts the cards":
1 ;"and deal the cards; or "'l$;" 2 - set the hands yourself";
1 ;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":
1 ;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'
1 ;"You can now either:-"'l$;l$;" 1 - let the computer shuffle";
1 ;"To review last hand press R";
1 ;"The contract is ";r;
1 ;"Soon the opening lead will be made and dummy will go down."''''" If at any time you want to go on to the next hand, enter ""NEXT"" instead of a card.";
1 ;"Rubber complete";
1 ;"Revoke";
1 ;"Prestwood"'
1 ;"Press any key to continue":
1 ;"Press 2 if you want the computer to play the defenders' hands. Press 4 if you want to play all 4 hands yourself.";
1 ;"Please wait while the"''
1 ;"OR - B to rebid it first ":
1 ;"Now press the option"'
1 ;"LOADING";
1 ;"Hand passed out":
1 ;"Hand no.";h;" coming up"'''
1 ;"Great Missenden";
1 ;"For next hand press N":
1 ;"Enter his hand again. ":
1 ;"Dealer":
1 ;"Congratulations";
1 ;"CP Software";
1 ;"Bidding";
1 ;"Bidding complete";
1 ;"BRIDGE PLAYER";
1 ;"At `1 per point";
1 ;"17 Orchard Lane";
1 ;"1 or 2?"
1 ;"-------"'':
1 ;"(at hand 1 again)";
1 ;" by ";o$(de):
1 ;" You have attempted to break into the program, which is forbidden. Rewind your tape and re-load the entire program.":
1 ;" ";j$(o,x);:
1 98765432","
1 2","North5","East 4","South5","West 4"
1 -st*(o>fo)
1 -fo+w-(w>fo),2
1 -fo*(k=fo)+fo*(k=2
1 ,ze;l$;l$;:
1 ,ze;l$;l$;
1 ,ze;"Press - P to replay the hand ";
1 ,ze;"N/S E/W":
1 ,ze;" You have given ";b$(k,
1 ,ze;" Press - P for print-out, R to replay hand or N for next hand. ":
1 ,ze;" You will be able, after enter-"''" ing the hands, to bid and play"''" the hand as usual, but remem-"''" ber you will always be South";
1 ,y;e$;" ";e$;
1 ,y;e$;" ";e$:
1 ,y+on;e$;e$;e$:
1 ,x,z,x,y,x,y,-17
1 ,x,z,x,y,x,.37
1 ,on;"The contract has been won by East/West. However this program does not cater for the computer to play the hand as declarer. To bid the hand again, press R. Otherwise press N for the next hand."
1 ,on;" ";
1 ,on)+k$(b-on,on)="DP"
1 ,h,h,h,h,"NESWnesw","Vul:none",p$,"AKQJTakqj1","SHDCNshdcn","
1 +st*(c(k)-
1 +a(or)+a(ol)
1 +(p>t))+s$(p):
1 +(n>p))+s$(n):
1 +((j$(or,2
1 *gg))+(" E/W "+
1 *(u=t))*(u=t
1 *(u=fo)+.3
1 *(e$(on)=e$(fo)
1 )>j$(or)):
1 )>e$(fo)):
1 )>d$(n,fo)
1 )>"3")+("2
1 )>"3")+"P":
1 )=x+on-fo*(x
1 )=v$(v,on):
1 )=j$(o,on)+v$(on,2
1 )=j$(l,a(l)):
1 )=fo*k-fo+x:
1 )=c$(b(w),v)
1 );j$(y+x,w);" ";:
1 );(s$(n));
1 );" by ";b$(k,
1 )+on)+s$(p):
1 )+("N/S game"
1 )+("4"+s$(t)
1 )*(on+g(a+8
1 ));" to play again";
1 ));" ";(p);" cards.";
1 ))+(d(k)>9
1 ))+("E/W game"
1 ))+("3"+s$(n)):
1 ))+("2134"
1 ))+(" N/S "+
1 ))+"1243":
1 ))*(f-(f<fo)):
1 )));" to play. Enter card ";
1 )))+s$(n):
1 )))+("4"+s$(p)
1 (on+(d(k)>st)+(k$(b,2
1 (k$(b-on)>"8"
1 (j$(or,on)=e$(fo)
1 (j$(op)<j$(or)
1 (j$(ol)<e$(2
1 (j$(o,w)>v$(3
1 (j$(o,on)=e$(on))
1 (j$(o)<j$(or)
1 (j$(m)<v$(3
1 (e$(t)>"2"
1 (d(k)>16.6
1 (d(k)<14.4
1 (d(k)+on)/5
1 (a(o)+a(op)>2
1 '''"This routine was written by F.A.Vachha and is included by kind permission of:-"''
1 "Your bid? ";
1 "You have entered the same card twice. Enter suit again. ";
1 "Maximum holding in one suit is 8cards. Enter suit again. ";
1 "Enter declarer ";
1 "Enter contract ";("(which need not be the same as before) "
1 "Enter ";(b$(k,
1 "'''"1 - play the game of Bridge proper i.e. initially see only your own hand, bid it and then, with dummy dis- played, play the hand as declarer."''"2 - see all four hands, decide on the contract, then play the hand.";
1 " defeated";
1 " bridge2"
1 bridge2